home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / PerfectPaint / rexx / text / Tiger.rx < prev   
Encoding:
Text File  |  2002-03-13  |  1.1 KB  |  93 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.     ADDRESS value Port
  8.  
  9.     pp_GetDepth
  10.     depth=result
  11.     IF depth<24 then DO    
  12.         pp_Warn 'Only*for*24Bits*version.'
  13.         EXIT
  14.     END
  15.  
  16.     pp_AvoidRefresh
  17.  
  18.     pp_GetHeightT
  19.     H=result
  20.  
  21.     pp_GetWidthT
  22.     W=result
  23.  
  24.     xx=x-W/2
  25.     yy=y-H/2
  26.  
  27.     pp_SpareOnOff
  28.  
  29.     pp_ClosestColor 0 0 0
  30.     Black=result
  31.  
  32.     pp_ClosestColor 255 255 255
  33.     White=result
  34.  
  35.     pp_SetApen White
  36.     pp_SetBpen Black
  37.  
  38.     pp_ComposeReqOff
  39.     pp_Compose 0 100 0
  40.  
  41.     pp_EffectOn
  42.     pp_Spray 1 100
  43.     pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
  44.  
  45.  
  46.     pp_ConvInit 1 159 0
  47.     pp_Conv 0 2 4 5 4 2
  48.     pp_Conv 1 4 9 12 9 4
  49.     pp_Conv 2 5 12 15 12 5
  50.     pp_Conv 3 4 9 12 9 4
  51.     pp_Conv 4 2 4 5 4 2
  52.  
  53.     pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
  54.     pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
  55.  
  56.     A=-1
  57.     B=-2
  58.     pp_ConvInit 1 1 128
  59.     pp_Conv 0 1 1 1 0 0
  60.     pp_Conv 1 1 2 2 0 0
  61.     pp_Conv 2 1 2 0 B A
  62.     pp_Conv 3 0 0 B B A
  63.     pp_Conv 4 0 0 A A A
  64.  
  65.     pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
  66.  
  67.     pp_SpareOnOff
  68.     pp_UpdateUndoBox xx-2 yy-2 xx+W+3 yy+H+3
  69.  
  70.     pp_SetApen Black
  71.     pp_Airbrush 100 5
  72.     pp_TextDraw x y
  73.  
  74.     pp_Spare
  75.     pp_TextDraw x y
  76.     
  77.     pp_PermitRefresh
  78.  
  79.     pp_EffectOff
  80.     pp_ComposeReqOn
  81.     pp_Compose 0 100 0
  82.     
  83. EXIT
  84.  
  85.     
  86.  
  87.     
  88.  
  89.  
  90.     
  91.  
  92.     
  93.